| Run file for FTPupload
|  StrongED developers

| Application directory
Set FTPupload$Dir <Obey$Dir>
IconSprites <FTPupload$Dir>.!Sprites

|
Set FTPupload$Action %*0
Set FTPupload$SitesDir <FTPupload$Dir>.Sites

| Run ResFind to figure out which set of resources to use.
|Set FTPupload$Language Germany
Run <StrongED$Dir>.Tools.ResFind FTPupload

| RMEnsure the required Toolbox modules
IfThere <FTPupload$Dir>.Modules Then Obey <FTPupload$Dir>.Modules

| Set wimpslot required
WimpSlot -min 64K -max 64k
If "<FTPupload$Action>"="ShowSites"  Then Filer_Run <FTPupload$Dir>.Tools.ShowSites
If "<FTPupload$Action>"="VerifySite" Then Filer_Run <FTPupload$Dir>.Tools.cFTPvars
If "<FTPupload$Action>"="AddNewSite" Then Filer_Run <FTPupload$Dir>.Tools.AddSite
If "<FTPupload$Action>"="UploadFile" Then Filer_Run <FTPupload$Dir>.Tools.Upload
If "<FTPupload$Action>"="SelectSite" Then Filer_Run <FTPupload$Dir>.!RunImage

| Unset vars we no longer need
Unset FTPupload$Action
